home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpdial.arc / NEWYORK.CMD < prev    next >
OS/2 REXX Batch file  |  1987-12-27  |  3KB  |  168 lines
  1. ASSI S7"    "
  2. ASSI S0" "
  3. ASSI S1"NEW YORK, NY  [212]"
  4. BEGIN:
  5. CLEA
  6. LOCA 4,0
  7. MESS"                         ╔══╡   NEW YORK NUMBERS  ╞══╗"
  8. MESS"                         ║                           ║"
  9. MESS"                         ║  A - PC Magazine IRS      ║"
  10. MESS"                         ║  B - Metro CPU Studio     ║"
  11. MESS"                         ║  C - High Tech            ║"
  12. MESS"                         ║  D - Manhattan South      ║"
  13. MESS"                         ║  E - The Machine          ║"
  14. MESS"                         ║  F - Data Com             ║"
  15. MESS"                         ║  M - Manual Dial          ║"
  16. MESS"                         ║  Q - Return to MAIN menu  ║"
  17. MESS"                         ║                           ║"
  18. MESS"                         ╠═══════════════════════════╣"
  19. MESS"                         ║ ENTER YOUR CHOICE(S):     ║"
  20. MESS"                         ║                           ║"
  21. MESS"                         ╚═══════════════════════════╝"
  22. LOCA 17,27
  23. GET S0
  24. TOP:
  25. FIND S0"A"
  26. IF FOUN
  27. ASSI S6"PC Magazine IRS"
  28. ASSI S8"6960360"
  29. GOSU REDIALER
  30. ELSE
  31. ENDI
  32. FIND S0"B"
  33. IF FOUN
  34. ASSI S6"Metro CPU Studio"
  35. ASSI S8"7573387"
  36. GOSU REDIALER
  37. ELSE
  38. ENDI
  39. FIND S0"C"
  40. IF FOUN
  41. ASSI S6"High Tech"
  42. ASSI S8"7694799"
  43. GOSU REDIALER
  44. ELSE
  45. ENDI
  46. FIND S0"D"
  47. IF FOUN
  48. ASSI S6"Manhattan South"
  49. ASSI S8"4327288"
  50. GOSU REDIALER
  51. ELSE
  52. ENDI
  53. FIND S0"E"
  54. IF FOUN
  55. ASSI S6"The Machine"
  56. ASSI S8"3409666"
  57. GOSU REDIALER
  58. ELSE
  59. ENDI
  60. FIND S0"F"
  61. IF FOUN
  62. ASSI S6"Data Com"
  63. ASSI S8"4967946"
  64. GOSU REDIALER
  65. ELSE
  66. ENDI
  67. FIND S7"MORE"
  68. IF FOUN
  69. ASSI S7"    "
  70. GOTO TOP
  71. ELSE
  72. ENDI
  73. FIND S0"M"
  74. IF FOUN
  75. CLEA
  76. LOCA 5,20
  77. MESS"NUMBER TO DIAL:"
  78. LOCA 5,36
  79. ASSI S6"MANUAL DIAL"
  80. GET S8
  81. GOSU REDIALER
  82. ELSE
  83. ENDI
  84. FIND S0"Q"
  85. IF FOUN
  86. CLEA
  87. TRAN"!@!"
  88. WAIT"@"
  89. TRAN"D!"
  90. WAIT"@"
  91. CLEA
  92. LOCA 1,0
  93. PAUS 1
  94. EXEC"SELCITY.CMD"
  95. ELSE
  96. ENDI
  97. MESS"ALL NUMBERS IN DIALING QUEUE FAILED TO ANSWER"
  98. MESS"RETURNING TO MAIN MENU"
  99. ALAR
  100. ASSI S0"Q"
  101. GOTO TOP
  102. REDIALER:
  103. CLEA
  104. ISFI S6
  105. IF NOT SUCC
  106. LOCA 5, 35
  107. MESS"DIALING"
  108. MESS" "
  109. MESS S6
  110. MESS S8
  111. TRAN"I!"
  112. PAUS 1
  113. TRAN"ATZ!"
  114. WAIT"OK"
  115. TRAN"^E!"
  116. WAIT"READY"
  117. TRAN"D"
  118. TRAN S8
  119. TRAN"!"
  120. RGET S9
  121. RGET S9 80 40
  122. RGET S9 40 40
  123. RGET S9 40 40
  124. GOTMESS:
  125. FIND S9"BUSY"
  126. IF FOUN
  127. MESS S6
  128. MESS S8
  129. MESS"BUSY; GOING TO NEXT NUMBER"
  130. MESS"******************************************************************"
  131. ASSI S7"MORE"
  132. GOTO RTRN
  133. ENDI
  134. FIND S9"ANSWER TONE"
  135. IF FOUN
  136. SET PARI NONE
  137. SET DATA 8
  138. CLEA
  139. MESS"CONNECTED TO"
  140. MESS S8
  141. MESS S6
  142. MESS S1
  143. ALAR
  144. EXIT
  145. ELSE
  146. FIND S9"RINGING"
  147. IF FOUN
  148. RGET S9
  149. FIND S9"RINGING"
  150. IF FOUN
  151. LOG OPEN S6
  152. MESS"NO ANSWER - STILL RINGING"
  153. MESS S8
  154. MESS S6
  155. MESS S1
  156. LOG CLOSE
  157. TRAN"^C^D^C"
  158. MESS"***********************************************************"
  159. GOTO RTRN
  160. ELSE
  161. GOTO GOTMESS
  162. ENDI
  163. ENDI
  164. ENDI
  165. ENDI
  166. RTRN:
  167. RETURN
  168.